home *** CD-ROM | disk | FTP | other *** search
INI File | 2005-03-15 | 774 b | 40 lines |
- [SETTINGS]
- Category=Windows Tweaks::System::Cursor Properties
- Caption=Cursor Properties
- version=1.0
- OSVERSION=2000,ME,XP,2003
- #=Cursor Width is 1 pixel by default.\nYou can make the cursor wider by changing the slider position.
- #=\nValue recommended is 2
- Author=
-
-
- [INTERFACE]
- TYPE=multi
- Type0=slider
- Text0=Width in Pixel(s)
- style0 =1,5
-
- [EXPORT]
- val0=HKCU\Control Panel\Desktop\CaretWidth
-
- [SCRIPT]
- Dim strkey,str1
- strkey="HKCU\Control Panel\Desktop\"
- str1="CaretWidth"
-
- Sub OnInit()
- Dim i
- i=RegReadValue(strkey & str1)
- SetItemText 0,i
- End Sub
-
- Sub OnApply(x,y)
- Dim i
- i=GetItemText(0)
- If i<1 or i>100 then
- Msg "Enter a value between 1 and 5",0
- else
- Call RegWriteValue(strkey & str1,i,2)
- Call Logoff
- end if
- End Sub